;;;Reads DWG_EDIT.LOG and writes parts to FILE1.LOG
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:flog (/ s2)
  (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
  (check_for_doslib)
  (setq f1 (open (dos_getfilenav "Drawing Edit Log File" "DWG_EDIT" "LOG" 4) "r"))
  (setq f2 (open "file1.log" "w"))
  (while
    (if s2
      (setq s1 s2)
      (setq s1 (read-line f1))
    );if
      (setq s2 (read-line f1))
      (while
        (and s2
          (not
            (or
              (eq (substr s2 1 1) "Q")
              (eq (substr s2 1 1) "H")
              (eq (substr s2 1 1) "S")
            )
          )
        )
        (setq s1 (strcat s1 (substr s2 2 8)(substr s2 28)))
        (setq s2 (read-line f1))
      );while
      (write-line s1 f2)
  );while
  (close f1)
  (close f2)
)
